home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / bridge / Send_Brush.b < prev    next >
Encoding:
Text File  |  1998-12-13  |  324 b   |  23 lines
  1. /*     arexx Script 
  2.     Send Brush
  3. */
  4.  
  5.     options results
  6.     parse ARG Port1 Port2 b
  7.     
  8.     ADDRESS value Port1
  9.  
  10.     pp_bsave 'ram:t/pptemp' 0
  11.     pp_msave 'ram:t/pptemp'
  12.  
  13.     address value Port2
  14.     pp_showscreen
  15.     pp_Bload  'ram:t/pptemp'
  16.     pp_mload    'ram:t/pptemp'
  17.  
  18.     address COMMAND
  19.     'delete >nil: ram:t/pptemp'
  20.     'delete >nil: ram:t/pptemp'||'.m'
  21.  
  22.  
  23.